123

Shaping up

123

STEP 1 continued

“eCallout4NoBorder, msoShapeLineInverse, msoShapeMathDivide,

msoShapeMathEqual, msoShapeMathMinus, msoShapeMathMultiply,

msoShapeMathNotEqual, msoShapeMathPlus, msoShapeMixed,

msoShapeMoon, msoShapeNonIsoscelesTrapezoid, msoShapeNoSymbol,

msoShapeNotchedRightArrow, msoShapeNotPrimitive, msoShapeOctagon,

msoShapeOval, msoShapeOvalCallout, msoShapeParallelogram,

msoShapePentagon, msoShapePie, msoShapePieWedge, msoShapePlaque,

msoShapePlaqueTabs, msoShapeQuadArrow, msoShapeQuadArrowCallout,

msoShapeRectangle, msoShapeRectangularCallout, msoShapeRegularPentagon,

msoShapeRightArrow, msoShapeRightArrowCallout, msoShapeRightBrace,

msoShapeRightBracket, msoShapeRightTriangle, msoShapeRound1Rectangle,

msoShapeRound2DiagRectangle, msoShapeRound2SameRectangle,

msoShapeRoundedRectangle, msoShapeRoundedRectangularCallout,

msoShapeSmileyFace, msoShapeSnip1Rectangle, msoShapeSnip2DiagRectangle,

msoShapeSnip2SameRectangle, msoShapeSnipRoundRectangle,

msoShapeSquareTabs, msoShapeStripedRightArrow, msoShapeSun,

msoShapeSwooshArrow, msoShapeTear, msoSh”

ConstText =​ ConstText & _​

“apeTrapezoid, msoShapeUpArrow, msoShapeUpArrowCallout,

msoShapeUpDownArrow, msoShapeUpDownArrowCallout, msoShapeUpRibbon,

msoShapeUTurnArrow, msoShapeVerticalScroll, msoShapeWave”

msoAutoShapeTypeName =​ Split(ConstText, “,”)

ConstText =​ “Value, 149, 150, 94, 95, 96, 91, 92, 147, 148, 93, 129, 131, 125, 134,

132, 130, 127, 126, 128, 136, 133, 135, 25, 137, 41, 44, 15, 20, 13, 182, 181, 180, 52,

161, 60, 179, 108, 162, 169, 11, 14, 48, 100, 46, 45, 47, 99, 144, 141, 4, 146, 18, 27,

26, 104, 36, 56, 98, 89, 90, 62, 75, 79, 73, 64, 63, 84, 87, 88, 67, 81, 66, 86, 71, 72, 82,

68, 139, 74, 78, 65, 70, 61, 76, 85, 80, 83, 77, 69, 16, 158, 174, 172, 173, 159, 21, 145,

10, 102, 7, 34, 54, 31, 29, 176, 37, 57, 177, 140, 40, 43, 22, 109, 113, 121, 117, 110,

114, 122, 118, 111, 115, 123, 119, 112, 116, 124, 120, 183, 166, 167, 164, 165, 168,

163, -​2, 24, 143, 19, 50, 138, 6, 9, 107, 2, 51, 142, 175, 28, 171, 39, 59, 1, 105, 12, 33,

53, 32, 30, 8, 151, 157, 152, 5, 106, 17, 155, 157, 156, 154, 170, 49, 23, 178, 160, 3,

35, 55, 38, 58, 97, 42, 101, 103”

msoAutoShapeTypeValue =​ Split(ConstText, “,”)

ConstText =​ _​

“Description#10-​point star#12-​point star#16-​point star#24-​point star#32-​point

star#4-​point star#5-​point star#6-​point star#7-​point star#8-​point star#Back or

Previous button. Supports mouse-​click and mouse-​over actions.#Beginning button.

Supports mouse-​click and mouse-​over actions.#Button with no default picture or text.

Supports mouse-​click and mouse-​over actions.#Document button. Supports mouse-​

click and mouse-​over actions.#End button. Supports mouse-​click and mouse-​over

actions.#Forward or Next button. Supports mouse-​click and mouse-​over actions.#Help

button. Supports mouse-​click and mouse-​over actions.#Home button. Supports mouse-​

click and mouse-​over actions.#Information button. Supports mouse-​click and mouse-​

over actions.#Movie button. Supports mouse-​click and mouse-​over actions.#Return

button. Supports mouse-​click and mouse-​over actions.#Sound button. Supports mouse-​

click and mouse-​over actions.#Arc#Balloon#Block arrow that follows a curved 90-​

degree angle.#Block arrow that follows”

ConstText =​ ConstText & _​